library(skimr) library(tidyverse) library(readr) library(dplyr)
mnist_raw <- read_csv("https://pjreddie.com/media/files/mnist_train.csv", col_names = FALSE)
# Reduce the dataset down from 60,000 observations mnist_subset <- mnist_raw %>% head(5000) # Relabel X1 and add instance number mnist_subset <- mnist_subset %>% rename(label = X1) %>% mutate(instance = row_number()) # Gather columns into x, y values mnist_subset